home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Supplement / Unsupported / Optionals / [ ] next >
Text File  |  1986-02-24  |  374b  |  18 lines
  1. \ ( hash objAddr -- )
  2. : (:[)  Find-Method cfa execute ;
  3.  
  4. : (])   copym 0= IF dropm Compile (:[) R> drop ELSE state THEN ;
  5.  
  6. ( -- )
  7. : :[    0 pushm ; Immediate
  8.  
  9. 'c (]) ' ] !   \ patch ] with special code
  10.  
  11. :CLASS O-M  <Super Ordered-Col
  12.  
  13.     \ ( addr len -- )  Add this method to the list
  14.     :M  ADD:  over +base over >uc
  15.               str255 -base hash add: super ;M
  16.  
  17. ;CLASS
  18.